module Seans where
import Sala
import System.Time

data Seans = Seans ID Name CalendarTime

instance Show Seans where
	show (Seans sid nam dat) = "* Seans numer \t\t" ++ show sid ++ "\n" ++
								"\t nazwa \t\t" ++ show nam ++ "\n" ++
								"\t Data \t\t" ++ calendarTimeToString dat ++ "\n"

seansID :: Seans -> ID
seansID (Seans x _ _) = x
								
seansName :: Seans -> Name
seansName (Seans x name _ ) = name

seansDate :: Seans -> CalendarTime
seansDate (Seans x _ r) = r